
#Region "Summary"
''' -----------------------------------------------------------------------------
''' Project	 : PTT.StationsTracking.Data
''' Class	 : StationsTracking.Data.QueryInvDataCar
''' 
''' -----------------------------------------------------------------------------
''' <summary>
''' Query Result Single Business Entity
''' </summary>
''' <remarks>
''' Sample of business entity coding
''' </remarks>
''' <history>
''' 	[Generater by Nok]	28/6/2549 9:53:38	Created
''' </history>
''' -----------------------------------------------------------------------------
#End Region

#Region ".NET Framework Class Import"
Imports System
Imports System.Xml.Serialization
Imports System.IO
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Collections
#End Region

<Serializable()> _
Public Class QueryInvDataCar
#Region "Internal member variables"
    Private _CarId As Int32
    Private _BuyYear As Int32
    Private _StatusCar As Int32
    Private _CarNumber As String
    Private _CheckMile As Int32
    Private _Descrpition As String
    Private _OwnerStatusCar As Int32
    Private _ProvinceId As Int32
    Private _DataTypeId As Int32
    Private _BrandId As Int32
    Private _SizeId As Int32
    Private _ColorId As Int32
    Private _FuelId As Int32
    Private _OwnerId As String
#End Region

    Public Sub New()
        _CarId = Nothing
        _BuyYear = Nothing
        _StatusCar = Nothing
        _CarNumber = Nothing
        _CheckMile = Nothing
        _Descrpition = Nothing
        _OwnerStatusCar = Nothing
        _ProvinceId = Nothing
        _DataTypeId = Nothing
        _BrandId = Nothing
        _SizeId = Nothing
        _ColorId = Nothing
        _FuelId = Nothing
        _OwnerId = Nothing
    End Sub

    Public Sub New(ByVal CarId As Int32, _
       ByVal BuyYear As Int32, _
       ByVal StatusCar As Int32, _
       ByVal CarNumber As String, _
       ByVal CheckMile As Int32, _
       ByVal Descrpition As String, _
       ByVal OwnerStatusCar As Int32, _
       ByVal ProvinceId As Int32, _
       ByVal DataTypeId As Int32, _
       ByVal BrandId As Int32, _
       ByVal SizeId As Int32, _
       ByVal ColorId As Int32, _
       ByVal FuelId As Int32, _
       ByVal OwnerId As String)
        _CarId = CarId
        _BuyYear = BuyYear
        _StatusCar = StatusCar
        _CarNumber = CarNumber
        _CheckMile = CheckMile
        _Descrpition = Descrpition
        _OwnerStatusCar = OwnerStatusCar
        _ProvinceId = ProvinceId
        _DataTypeId = DataTypeId
        _BrandId = BrandId
        _SizeId = SizeId
        _ColorId = ColorId
        _FuelId = FuelId
        _OwnerId = OwnerId
    End Sub

#Region "Property"

    Public Property CarId() As Int32
        Get
            Return _CarId
        End Get
        Set(ByVal value As Int32)
            _CarId = value
        End Set
    End Property


    Public Property BuyYear() As Int32
        Get
            Return _BuyYear
        End Get
        Set(ByVal value As Int32)
            _BuyYear = value
        End Set
    End Property


    Public Property StatusCar() As Int32
        Get
            Return _StatusCar
        End Get
        Set(ByVal value As Int32)
            _StatusCar = value
        End Set
    End Property


    Public Property CarNumber() As String
        Get
            Return _CarNumber
        End Get
        Set(ByVal value As String)
            _CarNumber = value
        End Set
    End Property


    Public Property CheckMile() As Int32
        Get
            Return _CheckMile
        End Get
        Set(ByVal value As Int32)
            _CheckMile = value
        End Set
    End Property


    Public Property Descrpition() As String
        Get
            Return _Descrpition
        End Get
        Set(ByVal value As String)
            _Descrpition = value
        End Set
    End Property


    Public Property OwnerStatusCar() As Int32
        Get
            Return _OwnerStatusCar
        End Get
        Set(ByVal value As Int32)
            _OwnerStatusCar = value
        End Set
    End Property


    Public Property ProvinceId() As Int32
        Get
            Return _ProvinceId
        End Get
        Set(ByVal value As Int32)
            _ProvinceId = value
        End Set
    End Property


    Public Property DataTypeId() As Int32
        Get
            Return _DataTypeId
        End Get
        Set(ByVal value As Int32)
            _DataTypeId = value
        End Set
    End Property


    Public Property BrandId() As Int32
        Get
            Return _BrandId
        End Get
        Set(ByVal value As Int32)
            _BrandId = value
        End Set
    End Property


    Public Property SizeId() As Int32
        Get
            Return _SizeId
        End Get
        Set(ByVal value As Int32)
            _SizeId = value
        End Set
    End Property


    Public Property ColorId() As Int32
        Get
            Return _ColorId
        End Get
        Set(ByVal value As Int32)
            _ColorId = value
        End Set
    End Property


    Public Property FuelId() As Int32
        Get
            Return _FuelId
        End Get
        Set(ByVal value As Int32)
            _FuelId = value
        End Set
    End Property


    Public Property OwnerId() As String
        Get
            Return _OwnerId
        End Get
        Set(ByVal value As String)
            _OwnerId = value
        End Set
    End Property

#End Region
End Class

''' -----------------------------------------------------------------------------
''' Project	 : PTT.StationsTracking.Data
''' Class	 : StationsTracking.Data.QueryInvDataCars
''' 
''' -----------------------------------------------------------------------------
''' <summary>
''' Collection of query result
''' </summary>
''' <remarks>
''' Sample
''' </remarks>
''' <history>
''' 	[NOK'S Generater]	28/6/2549 9:53:38	Created
''' </history>
''' -----------------------------------------------------------------------------
<Serializable()> _
Public Class QueryInvDataCars
    Inherits CollectionBase


    Default Public ReadOnly Property Item(ByVal index As Integer) As QueryInvDataCar
        Get
            If (index < 0 Or index >= Me.InnerList.Count) Then
                Throw New Exception("index has to be between 0 and " & (Me.InnerList.Count - 1).ToString())
            Else
                Return CType(Me.InnerList(index), QueryInvDataCar)
            End If
        End Get
    End Property

    Public Sub Add(ByVal info As QueryInvDataCar)
        Me.InnerList.Add(info)
    End Sub

    Public Sub SetItem(ByVal index As Integer, ByVal value As QueryInvDataCar)
        If (index < 0 Or index >= Me.InnerList.Count) Then
            Throw New Exception("index has to be between 0 and " & (Me.InnerList.Count - 1).ToString())
        Else
            Me.InnerList(index) = value
        End If
    End Sub


End Class
